home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 March
/
EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso
/
earcd
/
comm2
/
amntutls.lzh
/
AmiNet
/
AmiNetSearch.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1995-10-23
|
654b
|
29 lines
/* AmiNetSearch.rexx
**
** This script is intended for use with Excelsior! BBS
**
** It will properly launce the AmiNetSearch program after calculating
** the user's full internet address.
*/
options results
AmiNetDir = 'Doors:AmiNet/' /* Edit this line if you need to */
getuser 8; inet=result
address 'MASTER_REXX1'
getsystem 3 ; addr2=result
address
t=pos('%s',addr2)
if t<1 then do
print 'InterNet not properly configured'
exit
end; else do
addr=left(addr2,t-1)||inet||right(addr2,length(addr2)-t-1)
end
changewhere "InterNet"
changewhat "AmiNet FTP"
print '\q1\#4'AmiNetDir'AmiNetSearch %42 'AmiNetDir' 'addr' 0\'